home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 40.zip
/
BS1 part 40
/
SkyFlight+Bouncer.adf
/
AndysHacklings
/
Rtype.cheat
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
2018-01-21
|
1KB
|
29 lines
10 REM --- (c) CRACKED BY ANDY GRIFO, R-TYPE.CRACK ---
20 checksum = 0 : total = 141915 : crack = 522808
30 START = 522752 : FINISH = 522839 : GOSUB 50
40 GOTO 90
50 FOR n = START TO FINISH STEP 2
60 READ a$:a = VAL("&h"+a$)
70 checksum = checksum + a
80 POKEW n,a:NEXT n:RETURN
90 PRINT "Your Checksum = ";checksum
100 IF checksum<>total THEN PRINT "Data error.":END
110 PRINT "Place R-Type in DRIVE 0.Click On Screen"
120 PRINT "I will Intercept When You Loose a Life"
130 PRINT "indicated by The Power Light Going ON or OFF"
140 INPUT "PRESS RETURN AND THE GAME WILL BOOT",Grifo$
150 CALL crack
160 DATA 297c,0007,fa0c,0082,4eec,000c,23fc,0007
170 DATA fa1c,0007,966a,4ef9,0007,9360,21fc,4eb9
180 DATA 0007,055a,31fc,fa2e,055e,4ef8,00c0,0879
190 DATA 0001,00bf,e001,4e75,2c78,0004,207c,00fe
200 DATA 88c0,43f9,0007,f8ba,303c,0145,12d8,51c8
210 DATA fffc,4ef9,0007,f8d0